home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / misc / amised / scripts / toupper.rexx < prev    next >
OS/2 REXX Batch file  |  1999-04-19  |  203b  |  18 lines
  1. /**/
  2.  
  3. OPTIONS RESULTS
  4.  
  5. 'Graphics OFF'
  6. 'GetASCII'
  7. a=result
  8. if (a>96) & (a<123) then
  9. do
  10. /*    'Query FLAG=1'
  11.     if (result=0) then
  12.     do*/
  13.         'Delete'
  14. /*    end*/
  15.     'Insert ASCII='||(a-32)' NOMOVE'
  16.     'Graphics ON'
  17. end
  18.